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.********************************************************************* 
t 

TITLE "autonomous sine wave tone generator" 
LIST P=16C621A, R=DEC 

INCLUDE <P16C621A.INC> 
CONFIG _BODEN__OFF&_CP„OFF&_PWRTE_ON&_WDT_OFF&_HS_OSC 

.********************************************************************* 

File: TONE. ASM 

; Author: Jeremy Sommer 

Date: 07/05/00 

Assembler: MPASM V01.40 

Xtal: 4.14 Mhz 

Inst Clk: 1.035 Mhz (966.2 nSec) 
.********************************************************************* 

; Description: 

ROM Usage: words 
; RAM Usage: bytes 

.************************* Constant Definition ********************* 
STEP# EQU .8 ; Number of steps 

.************************* Register Definition ********************* 

COMPARATOR OUTPUTS 

; REPEATER ID (0x00 = CPE end) 

Definition ************************** 

Signal comparator output 
Supply Voltage comparator output 
Shunt Current comparator output 

; Temperature comparator output 
P0RT_B<1> 

********************************************************************* 

Reset Vector 

********************************************************************* 
org 0x000 

goto Start ; Begining of Program 



.********************************************************************* 
; Main Routine 

********************************************************************** 
Start 

bef STATUS , RP0 ; Select bank 0 

clrf PORTA ; Initialize Port_A by setting output latches 

clrf PORTB ; Initialize PortJB by setting output latches 



COMP_FLAG EQU 0x20 

REP_ID EQU 0x21 

.************************* Bit 

SIGCOMP_OUT EQU .6 

VCOMP_OUT EQU .6 ; 

IZCOMP_OUT EQU ,7 

TEMPCOMP_OUT EQU . 7 

RBI EQU .1 



bsf STATUS , RP0 
movlw OxDF 
movwf OPTION_REG 



Select register bank 1 

Configure TMR0 to run off Fclk/4 (for debugging) 



movlw 0x88 
movwf VRCON 
movlw OxlF 
movwf TRISA 
movlw OxFF 
movwf TRISB 

bcf STATUS , RPO 
movf PORTB,0 
CPE end} 

movwf REP_ID 
movlw 0x02 
movwf CMCON 
movlw OxFF 
movwf PORTB 

bsf STATUS , RPO 

movlw 0x00 

movwf TRISB 



Configure for internal voltage reference of 2.5V nom. 
Set Port„A comparator as inputs 
Set Port_B as inputs 



Select register bank 0 

; Identify repeater { OxFF = CO end of 2, 0x00 



Configure for 4 inputs muxed to 2 comparators 
Enable pins for I/O functions 
Set Port_B to OxFF (.2 55) 



Select register bank 1 
Set Port_B as outputs 



bcf 
HealthCheck 



STATUS, RPO ; Select register bank 0 (Initialization complete) 

; (Placeholder for health verification via comparators) 



SelectTone 

bcf CMCON, CIS 
btfss REP__ID,RB1 
goto Tone5_Loop 

; goto Tone4_Loop 



Select Signal and Supply Voltage comparators 
If REP_ID<1> is 0 (CPE end repeater) , 

test for toneB generation 
else test for tone4 generation 
(commented out due to sequentiality) 



Tone4„Loop 

btfsc CMCON, SIGCOMP_OUT ; If Signal comparator is high (low signal power), 
goto Tone4_Loop ; stay static (no tone) 



tone 4 

overhead 

movlw .2 47 
movwf PORTB 
movlw . 2 3 3 
movwf PORTB 
movlw .215 
movwf PORTB 
movlw .193 
movwf PORTB 
movlw .168 
movwf PORTB 
movlw .141 
movwf PORTB 
movlw .114 
movwf PORTB 
movlw . 87 
movwf PORTB 
movlw . 62 
movwf PORTB 
movlw . 40 



17.25 kHz sine at 2/60 UI intervals; 4 instructions 
4 
6 
8 

10 
12 
14 
16 
18 
20 
22 



movwf 


FOR IB ; 
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movwf 
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movwf 
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movlw 


* U / 


Z o 


movwf 
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movwf 


JrUKlhS , 




movlw 
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J Z 


movwf 


PUKi b 




movlw 
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movwf 


PORTB 




movlw 


. Z Z 


J D 


movwf 


PORTB 




movlw 


. 4U 


"3 o 
0 0 


movwf 


PORTB 




movlw 




4 0 


movwf 


Ti/^iTl HIT") 

PORTB 




movlw 


. 87 


42 


movwf 


PORTB 




movlw 


. 114 




movwf 


PORTB 




movlw 


. 141 




movwf 


PORTB 




movlw 


. 168 




movwf 


PORTB 




movlw 


. 193 




movwf 


PORTB 




movlw 


.215 


- 52 


movwf 


PORTB 




movlw 


.233 


• 54 


movwf 


PORTB 




movlw 


.247 


■ 56 


movwf 


PORTB 




movlw 


.255 


• 58 


movwf 


PORTB 





goto Tone4_Loop ; Go back to recheck signal level 



Tone5_Loop 

btfsc CMCON, SIGCOMP_OUT ; If Signal comparator is high (low signal power), 
goto Tone5_Loop ; stay static (no tone) 

toneS ; 21.5625 kHz sine at 2/48 UI intervals; 4 instructions 

overhead 



movlw .242 ; 4 

movwf PORTB 

movlw .221 ; 6 

movwf PORTB ; 

movlw .193 ; 8 

movwf PORTB ; 

movlw .162 ; 10 

movwf PORTB 

movlw .127 ; 12 

movwf PORTB ; 



movlw 




1 A 

±4 


movwf 


Tif\T~> rnT-> 




movlw 


. o A 




movwf 


rUKlD 




movlw 


. j 4 


1 Q 


movwf 






movlw 


1 1 


z u 


movwf 


rUKl rs 




movlw 


. U 


O 9 
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movwf 


"D/^ "DTI ID 

FUK1 rs 




movlw 
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9 / 
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movwf 


rUKl rs 




IllOVXW 
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movwf 


irUKl rS 




IUOV1W 




Z o 


movwf 


HAD rpD 
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IUOVIW 
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movwf 


rUKl Jd 




movlw 


. OA 




movwf 


PORTB 




movlw 


. 93 


- 34 


movwf 
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PORTB 




movlw 


1 o o 
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movwf 
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PORTB 




movlw 


. 162 




movwf 


PORTB 




movlw 


. 193 




movwf 


PORTB 




movlw 


.221 


42 


movwf 


PORTB 




movlw 


.242 




movwf 


PORTB 




movlw 


.255 




movwf 


PORTB 




goto 


Tone5_Loop , 


Go 



; 36 
; 38 
; 40 

; 44 
; 46 

Go back to recheck signal level 



END 



; That's all Folks ! 



;*********************************^ 

TITLE "non-autonomous sine wave tone generator" 
LIST P=16C621A / R=DEC 

INCLUDE <P16C621A.INC> 
— CONFIG _B0DEN„0NSc_CP_OFF&_PWRTE_0N&_WDT_OFF&_HS_0SC 

********************^ 

File: TONE . ASM 

Author: Jeremy Sommer 

Date: 07/05/00 
Assembler: MPASM V01.40 
Xtal: 16.56 Mhz 

Inst Clk: 4.14 Mhz (241.5 nSec) 

****************************^^ 

Description: 
ROM Usage : words 
RAM Usage: bytes 

************************* Constant Definition ********************* 

Mask of CMD and PORT_B bits which select 
repeater ID 

REPAID for CO end of multiple repeaters 
REP_ID for CPE end 

Mask of valid VAL bits to use for Vref 
Comparator mode for all four comparators 
Comparator output bits 

High temperature health threshold -> 82C 
High supply voltage health threshold -> 34.4V 
Low supply voltage health threshold -> 25.8V 
; High shunt current health threshold ~> 

; Low shunt current health threshold -> 

; Prescale 2* (7+1) =256 
; Initial TIME_MSB 
; Number of samples per burst 
; Minimum number of matching samples 
(should be set to 80% of NSAMPLES#) 
Latest Phase A sample register 
Latest Phase B sample register 

; Latest temporary sample register 
Number of sample registers per phase 

(from first bits received) 

; Patternl MSBs minus 1 

; Patternl . . . minus 1 

; Patternl LSBs minus 1 

; Pattern2 MSBs minus 1 

; Pattern2 . . . minus 1 

; Pattern2 LSBs minus 1 
(to last bits received) 



REP__IDMASK# 


EQU 


OxCO 




CO_ID# 




EQU 


0x40 


CPE_ID# 




EQU 


OxCO 


VRMASK# 




EQU 


0x2F 


CM0DE# 




EQU 


0x02 


C0UTMASK# 


EQU 


OxCO 




HI__TEMP# 


EQU 


0x8D 




HI_SUPPLY# 


EQU 


0x8C 




L0_SUPPLY# 


EQU 


0x87 




HI_IZ# 




EQU 


0x8D 


32.8mA 








L0_IZ# 




EQU 


OxAl 


2.1mA 








PRESCALE # 


EQU 


.0; 


.7 


INIT_TMSB# 


EQU 


.3; 


.15 


NSAMPLES# 


EQU 


.4; 


.127 


NMATCH ING # 


EQU 


.3; 


.102 


ADDRN_A# 


EQU 


0x3A 




ADDRN_B# 


EQU 


0x4A 




ADDRN# 




EQU 


0x5A 


NUM_ADDRS# 


EQU 


OxOA 




PAT12# 




EQU 


0x54 


PAT11# 




EQU 


OxAB 


PAT10# 




EQU 


0x54 


PAT22# 




EQU 


0xA9 


PAT21# 




EQU 


0x52 


PAT20# 




EQU 


0xA9 



;************************* Register Definition ********************* 





PHASE 


EQU 


0x20 




; PHASE REGISTER <Ox00=A, 0xFF=B) 




TEMPI 


EQU 


0x21 




; TEMPORARY REGISTER 1 




TEMP2 


EQU 


0x22 




; TEMPORARY REGISTER 2 




TEMP3 


EQU 


0x23 




; TEMPORARY REGISTER 3 




W_TEMP 




EQU 


0x2 4 




; TEMPORARY W REGISTER (both banks) 




STATUS TEMP 


EQU 


0x25 




; TEMPORARY STATUS REGISTER 




TIME_MSB 


EQU 


0x2 6 




; TMR0 


OVERFLOW COUNTER 




SAMPLE 




EQU 


0x27 




; SAMPLE VALUE (0 or 1) 




COUNT 


EQU 


0x2 8 




; COUNT OF SAMPLES TO GO 




COUNT1 




EQU 


0x29 




; COUNT OF SAMPLES=1 




REP_ID 




EQU 


0x2A 




; REPEATER ID (0x00 = CPE end) 




TONE_ID 




EQU 


0x2B 




; TONE IDENTIFICATION REGISTER (0x0 




tonelO ) 












CMD 


EQU 


0x2C 




; COMMAND (CONCATENATED) 




VAL 


EQU 


0x2D 




; VALUE (CONCATENATED) 




PAT12_A 




EQU 


0x3 1 




* PATTERN1 2 (PHASE A) 




PATll^A 




EQU 


0x32 




• PATTERNll (PHASE A) 




PATIO A 




EQU 


UAJ J 




• PATTERN1 0 (PHASE A) 




CMD1 A 




FOTT 






■ COMMANDl (PHASE A) 




CMDO A 




FHTT 


Uaj j 




• COMMANDO (PHASE A) 




VAL1 A 




FOTT 


UAJ vj 




VALUE1 (PHASE A) 


O 


VALO A 




FOTT 


UAJ / 




VALUE0 (PHASE A) 




PAT? ? A 




FOTT 


O^rO Q 

UAJ O 




PATTERN2 2 (PHASE A) 


fn 


PAT2 1 A 




FHTT 


fW3 Q 

UAJ J7 




PATTERN21 (PHASE A) 


ffl 


PAT?0 A 




FfYTT 


UXjA 




PATTERN2 0 (PHASE A) 


Ki 


PAT12 B 




FOTT 






PATTERN12 (PHASE B) 




PATH B 




FHTT 


U A4fc ^ 




PATTERN11 (PHASE B) 




PATIO B 




FfYTT 


UX4t j 




PATTERN10 (PHASE B) 


Cy 


nvrnt r 






Ci^rA A 

UX4t4 




COMMANDl (PHASE B) 




nvrnn r 






UX43 




COMMANDO (PHASE B) 


a 


VAL1 B 




FHTT 


UX4t u 




VALUE1 (PHASE B) 




VAL B 


FHTT 






• VALUE 0 (PHASE B) 




PAT? ? R 




PHTT 


n V /i o 

uX4fco 




PATTERN22 (PHASE B) 




PAT?1 R 






ux4y 




PATTERN2 1 (PHASE B) 




PAT? 0 R 




FOTT 


Civ A TS. 




PATTERN2 0 (PHASE B) 




PAT 12 


POTT 


UAJ _L 




PATTERN12 




PATH 


POTT 


uaj 




PATTERN11 




PATIO 


EQU 


0x53 




PATTERN1 0 




CMD1 


EQU 


0x54 




COMMANDl 




CMDO 


EQU 


0x55 




COMMANDO 




VAL1 


EQU 


0x56 




VALUE1 




VALO 


EQU 


0x57 




VALUE 0 




PAT22 


EQU 


0x58 




PATTERN2 2 




PAT21 


EQU 


0x59 




PATTERN2 1 




PAT20 


EQU 


0x5A 




PATTERN2 0 




.************************* B ^ t Definition ************************** 




WEN 


EQU 


.7 


? 


Vref 


enable bit 




SIGCOMP_OUT 


EQU 


.6 


/ 


Signal comparator output 




VCOMP_OUT 


EQU 


.7 


/ 


Supply Voltage comparator output 




IZCOMP_OUT 


EQU 


.7 


/ 


Shunt Current comparator output 




TEMPCOMP_OUT 


EQU 


.6 




Temperature comparator output 




CIS 


EQU 


.3 




Comparator input switch 



(=0 for Signal comparator 

and Temperature comparator, 



RA4 

RBI 

INTF 

TOIF 

RAO 

POR 

BO 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



.4 
.1 
.1 
.2 
. 0 
.1 
.0 



=1 for Supply Voltage comparator 
and Shunt Current comparator) 
PORT_A<4> 
P0RT_B<1> 
INTC0N<1> 
INTCON<2> 
PORT_A<0> 
PCON<POR> 
PCON<BO> 



******************************************************************* 

Reset Vector 
************************************** 



org 0x000 
goto Start 



,* Begining of Program 



nop 
nop 
nop 



PC=1 
PC=2 
PC=3 



******************************************************************* 

Interrupt Service Routine 
******************************************************************* 



ISR 



movwf W_TEMP 

swapf STATUS , 0 
bcf STATUS, RP0 

movwf STATUS TEMP 



breakpoint 

; copy W to temp register, 
could be in either bank 
swap status to be saved into W 
change to bank 0 regardless 
of current bank 

save status to bank 0 register 



btfsc INTCON, INTF ; If interrupt is external INT 

goto WaitForLoopback ; then goto WaitForLoopback 

btfss INTCON, TOIF ; else if interrupt is not TMR0 

goto Bogus Interrupt ; then the interrupt was bogus 

call DecTimeMSB ; else decrement TIME_MSB 

goto DoRetfie ; return from ISR 



Bogus Interrupt 

movlw OxBO 

andwf INTCON, 1 
DoRetfie 

; bcf STATUS , RP0 

swapf STATUS_TEMP, 0 

movwf STATUS 
swapf W_TEMP,1 ; 
swapf W_TEMP,0 ; 
retf ie 



; bogus interrupt !!!!!!! 
Clear interrupt flags and make sure that 
no unused interrupts are enabled somehow 



change to bank 0 in case ISR changed bank 
; swap STATUS_TEMP register into W, 

sets bank to original state 

; move W into STATUS register 

swap W_TEMP 

swap W_TEMP into W 

; Return from ISR 



******************************************************************* 

Main Routine 



Start 



>- ^ ^ 
DC I 


b 1 AX Ub , KFU 


cirr 


rUKIA 


cirt 


PUK IB 


bsf 


STATUS , RPO 


movlw 


OxDO 


ioitIw 


FKhibCAbbtF 


movwf 


0PT10N_REG 


movlw 


UXUr 


movwf 


TRISA 


movlw 


UXr r 


movwf 


TRISB 


Dcr 


STATUS , RPU 


movlw 


CO_ID# 


btf ss 


PORTB , 7 


.er) 




movlw 


CPE_ID# 


movwf 


REP__ID 


movlw 


0x02 


movwf 


CMCON 


movlw 


OxFF 


movwf 


PORTB 


bsf 


STATUS, RPO 


movlw 


0x01 



Select bank 0 

Initialize Port_A by setting output latches 
Initialize Port_B by setting output latches 

Select register bank 1 

Configure TMRO to run off Fclk/4, with prescale 



Set Port__A comparator as inputs , except RA4 as output 
Set Port_B as inputs 



Select register bank 0 

; Prepare to set REP_ID to CO__ID# 

; If PORTJB<7> = 0 (indicates the CPE end 

Prepare to set REPAID to CPE_ID# 
Set REP_ID 

Configure for 4 inputs muxed to 2 comparators 
Enable pins for I/O functions 
Set Port_B to OxFF (.255) 



Select register bank 1 

Set Port__B as outputs except for RBO, which is the INT 



input 



movwf 



TRISB 



bcf 
goto 

DecTimeMSB 
bcf 
bsf 



STATUS, RPO ; Select register bank 0 (Initialization complete) 
TestHealth ; Verify card health, generate ACK__tone if healthy 



INTCON/TOIF ; Clear the TOIF interrupt 

INTCOKF/GIE ; Set Global interrupt enable since ISR may have been 
; escaped without return 
TIME_MSB,1 ; Decrement TIME_MSB and if it is still positive 
; return from DecTimeMSB ; 
else reinitialize TIME_MSB register, 



decf sz 
return 

movlw INIT_TMSB# 
movwf TIME_MSB 
goto TakeSample 



and then sample the output of the Signal Comparator 
(commented out due to sequentiality) 



TakeSample 



comf 
call 
movwf 
btf sc 
goto 

movlw 
btfsc 
movlw 



TAKE SAMPLE BURST, 
VALIDATE CORRELATION, 

SHIFT INTO SAMPLE REGISTER FOR CURRENT PHASE, 
TRANSFER TO TEMPORARY SAMPLE REGISTER 
PHASE, 1 ; switch phase of sampling (alternate A and B) 

GetSamples ; accumulate NSAMPLES# samples 
TEMPI ; recover sample value (0=0, 1=1, .255=invalid) 

TEMPI, 7 ; If invalid sample, 

ResetCurrentPhase ; clear sample registers of current phase 

; and start waiting all over again 
ADDRN_A# ; Starting with latest Phase A register 
PHASE, 0 ; If PHASE = 1 (B) 

ADDRN„B# ; switch to latest Phase B register 



movwf FSR 
rrf TEMPI, 1 
movlw NUM_ADDRS# 
movwf TEMPI 
RotNextReg 

rlf INDF , 1 



decf FSR,1 

decfsz TEMPI ,1 

goto RotNextReg ; 



movlw ADDRN# 
movwf TEMP 2 
movlw ADDRN__A# 
btfsc PHASE, 0 
movlw ADDRN_B# 
subwf TEMP2,1 

movwf FSR ; 
movlw NUM_ADDRS# 
movwf TEMPI ; 
XfrNextReg 

movf INDF , 0 
movwf TEMP 3 
movf TEMP 2 , 0 
addwf FSR,1 

movf TEMP 3 , 0 
movwf INDF ; 

7 

decf FSR,1 
movf TEMP 2 , 0 
subwf FSR,1 

decfsz TEMPI, 1 

goto XfrNextReg ; 



CheckPattern 

movlw PAT12# 
subwf PAT12,1 
decfsz PAT12,1 
goto InfiniteLoop 
movlw PAT11# 
subwf PAT11,1 
decfsz PAT11,1 
goto InfiniteLoop 
movlw PATIO # 
subwf PATIO, 1 ; 
decfsz PATIO, 1 

goto InfiniteLoop 



Initialize FSR to latest sample register 

; Put sample value (0=0,1=1) in carry bit 
Put number of sample addresses per phase 
into the TEMPI register 

; Rotate register left through carry bit, 
note that the first time this puts the 
latest sample into bit 0 of latest sample 
register 

Move to next earliest sample register 

; If not all registers are done, 
then go back for next register rotation 

Now we're ready to check for loopback! 
First we need to copy all the current phase 
registers into temporary sample registers. 

; Start with the latest temporary sample register 
Store its address in TEMP2 
Starting with latest Phase A register 
; If PHASE = 1 <B) 
switch to latest Phase B register 

; Subtract phase register address from TEMP2 and 
store the result in TEMP2 
Initialize FSR to latest phase sample register 
Put number of sample addresses per phase 
into the TEMPI register 

; Get the phase register contents 
Transfer the phase register contents to TEMP3 

; Get the address offset from TEMP 2 
Point to the temporary sample register 
by adding the address offset 

; Get the phase register contents 
Transfer the phase register contents to the 
temporary sample register 

Move to next earliest temporary sample register 

; Get the address offset from TEMP2 
Point to the next earliest phase register 
by subtracting the address offset 

; If not all registers are done, 
then go back for next register transfer 
Else the transfer is over, and it's time 
to check the patterns ! 

; CHECK PATTERN BITS FOR VALID MATCH 

; Put PAT12# into W register 
Subtract PAT12# from PAT 12 

; If pattern did not match 

; wait indefinitely 

; Put PAT11# into W register 
Subtract PAT11# from PATH 

; If pattern did not match 

; wait indefinitely 

; Put PAT10# into W register 
Subtract PAT10# from PATIO 

; If pattern did not match 

; wait indefinitely 



movlw PAT22# 
subwf PAT22, 
decf sz 

goto Infini 
movlw PAT21# 
subwf PAT21 , 
decf sz 

goto Infini 
movlw PAT20# 
subwf PAT2 0 , 
decf sz 

goto Infini 



PAT22 , 1 
teLoop 



PAT21, 1 

teLoop 



PAT20, 1 
teLoop 



; Put PAT22# into W register 

Subtract PAT22# from PAT22 

; If pattern did not match 

; wait indefinitely 

; Put PAT21# into W register 

Subtract PAT21# from PAT21 

; If pattern did not match 

wait indefinitely 
; Put PAT20# into W register 

Subtract PAT2 0# from PAT2 0 

; If pattern did not match 
; wait indefinitely 

Pattern matches ! 



CheckOver al 1 Par i ty 
movf CMD1 , 0 
call CheckParity 



movwf TEMPI 
btfsc TEMPI ,7 
goto InfiniteLoop 
movf CMDO , 0 
call CheckParity 



movwf TEMPI 
btfsc TEMPI ,7 
goto InfiniteLoop 
movf VAL1,0 
call CheckParity 



movwf TEMPI 
btfsc TEMPI, 7 
goto InfiniteLoop 
movf VALO , 0 
call CheckParity 



movwf TEMPI 
btfsc TEMPI , 7 
goto InfiniteLoop 



; CHECK CMD AND VAL BITS FOR PARITY 
Put CMD1 into W register 
Check that bits 7,6 and 3,2 
are complements of bits 5,4 
and 1,0 respectively 
Recover return value 

; If return value indicates invalid parity 
wait indefinitely 
Put CMDO into W register 
Check that bits 7,6 and 3,2 
are complements of bits 5,4 
and 1,0 respectively 
Recover return value 

; If return value indicates invalid parity 
wait indefinitely 
Put VAL1 into W register 
Check that bits 7,6 and 3,2 
are complements of bits 5,4 
and 1 , 0 respectively 
Recover return value 

; If return value indicates invalid parity 

; wait indefinitely 
Put VALO into W register 
Check that bits 7,6 and 3,2 
are complements of bits 5,4 
and 1,0 respectively 
Recover return value 

; If return value indicates invalid parity 

; wait indefinitely 
Parity is OK! 



InterpretCmdVal 

clrf TEMP 2 



Clear TEMP2 



movf VAL1,0 

movwf TEMPI ; into 

call ConcatenateBits 

; into 

movf VAL0,0 

movwf TEMPI ; into 

call ConcatenateBits 

; into 

movf TEMP2 , 0 



INTERPRET CMD AND VAL BITS FOR ACTION 



movwf VAL 



into 



Put VAL1 
TEMPI 

Shift the concatenated command bits 
TEMP2 

Put VALO 
TEMPI 

Shift the concatenated command bits 
TEMP 2 

Put TEMP2 
VAL 



clrf TEMP 2 ; Clear TEMP2 

movf CMD1 , 0 ; Put CMD1 

movwf TEMPI ; into TEMPI 

call ConcatenateBits ; Shift the concatenated command bits 

; into TEMP2 
movf CMDO , 0 ; Put CMDO 

movwf TEMPI ; into TEMPI 

call ConcatenateBits ; Shift the concatenated command bits 

; into TEMP2 
movf TEMP2 , 0 ; Put TEMP2 

movwf CMD ; into CMD 



andlw REP_IDMASK# ; Select only the REP_ID bits of CMD, 
movwf TEMPI ; and put them in TEMPI 

incf TEMPI ,1 ; If TEMPI = 0 (indicating CMD is for all 

repeaters) 

decfsz TEMPI ,1 

goto CheckREP_ID ; Check whether this is repeater being addressed 
goto CheckCmd ; 
CheckREP__ID 

movf REP_ID,0 ; Put REP_ID in W register 
subwf TEMPI , 1 ; Subtract REP_ID from CMD REP_ID 

incf TEMPI ,1 ; If the REP_ID's don't match 

decfsz TEMPI ,1 

goto WaitForLoopback ; then clear all sample registers and start 

waiting all over again 
else proceed with checking the command 
(commented out due to sequentiality } 



goto CheckCmd 



CheckCmd 

decfsz CMD,1 
goto CheckFor2 
goto ACK_now 

CheckFor2 

decfsz CMD,1 
goto CheckFor3 
goto TestHealth 

CheckFor3 

decfsz CMD,1 
goto CheckFor4 
goto Test Supply 

CheckFor4 

decfsz CMD,1 
goto CheckForS 
goto TestIZ 

CheckForS 

decfsz CMD,1 
goto CheckFor6 
goto TestTemp 

CheckForS 

decfsz CMD,1 
goto CheckFor7 
goto TestReset 



; If command was not 1, 
check for 2 

; else force an ACK 

; If command was not 2, 
check for 3 
else test if health check = OK 

; If command was not 3, 
check for 4 
else test supply voltage 

; If command was not 4, 
check for 5 

; else test shunt current 

; If command was not 5, 
check for 6 
else test temperature 

; If command was not 6, 
check for 7 

else test if power-on reset occurred since last 
check via this command 



CheckFor7 

decfsz 



CMD, 1 



; If command was not 7, 
goto WaitForLoopback ; clear all sample registers and start 

waiting all over again 



goto TestBrownout ; test if brownout reset occurred since last 

; check via this command 
; (commented out due to sequent iality) 



TestBrownout 



bsf 


STATUS ,RP0 


; Select bank 1 


movf 


PCON, 0 


; Put PCON into W register 


movwf 


TEMPI 


; and then into TEMPI 


bcf 


STATUS , RPO 


; Select bank 0 


btf sc 


TEMPI , BO 


; If a brownout has not occurred, 


goto 


WaitForLoopback ; clear all sample registers 






; waiting all over again 


bsf 


STATUS , RPO 


; else select bank 1 


bsf 


PCON,BO 


; and set the brownout detect 


bcf 


STATUS, RPO 


; Select bank 0 


goto 


ACK_now 


; and generate an ACK tone 



TestReset 

bsf STATUS, RPO 
movf PCON,0 
movwf TEMPI 



bcf 

btfsc 

goto 

bsf 
bsf 
bcf 
goto 



STATUS, RPO 
TEMPI, POR 



STATUS , RPO 
PCON,POR 
STATUS, RPO 
ACK now 



Select bank 1 

; Put PCON into W register 
and then into TEMPI 
Select bank 0 

If a power-on reset has not occurred, 
WaitForLoopback ; clear all sample registers and start 
waiting all over again 
else select bank 1 

and set the power-on reset detect flag (normal) 
Select bank 0 

; and generate an ACK tone 



Test Supply 
call 
call 
goto 



PresetForSupply ; Preset TEMPI for Supply Test 
DoCompCheck ; Do the comparator check 
EvaluateAnswer ; Act on the result 



TestIZ 



call PresetForIZ ; Preset TEMPI for Shunt Current Test 
call DoCompCheck ; Do the comparator check 
goto EvaluateAnswer ; Act on the result 



TestTemp 

call 
call 



PresetForTemp ; Preset TEMPI for Temperature Test 

DoCompCheck ; Do the comparator check 
goto EvaluateAnswer ; Act on the result 



set VAL corresponding to T=82 deg. C 



TestHealth 

movlw HI_TEMP# 
movwf VAL ; 
call PresetForTemp ; 
call DoCompCheck ; 

movwf TEMPI ; Retrieve answer (0x00=yes, OxFF-no) 

btfss TEMPI, 7 ; If yes (Temp too high), 

goto WaitForLoopback ; clear all sample registers and start 

; waiting all over again 
movlw HI_SUPPLY# ; else set VAL corresponding to V=34.4V 
movwf VAL ; 
call PresetForSupply ; 



call DoCompCheck ; 

movwf TEMPI ; Retrieve answer (Ox00=yes, OxFF=no) 

btfss TEMPI , 7 ; If yes (Supply Voltage too high), 

goto WaitForLoopback ; clear all sample registers and start 

; waiting all over again 
movlw LO_SUPPLY# ; else set VAL corresponding to V=25.8V 
movwf VAL ; 
call PresetForSupply 
call DoCompCheck ; 

movwf TEMPI ; Retrieve answer (0x00=yes, OxFF=no) 

btfsc TEMP1,7 ; If no (Supply Voltage too low), 

goto WaitForLoopback ; clear all sample registers and start 

; waiting all over again 
movlw HI_IZ# ; else set VAL corresponding to IZ = 32.8mA 

movwf VAL ; 
call PresetForSupply 
call DoCompCheck ; 

movwf TEMPI ; Retrieve answer (Ox00=yes, OxFF=no) 

btfss TEMPI, 7 ; If yes (Shunt Current too high), 

goto WaitForLoopback ; clear all sample registers and start 

; waiting all over again 
movlw LO_IZ# ; else set VAL corresponding to IZ = 2.1mA 

movwf VAL ; 
call PresetForSupply ; 
call DoCompCheck ; 

movwf TEMPI ; Retrieve answer (0x00=yes, OxFF=no) 

btfsc TEMPI, 7 ; If yes (Shunt Current too low), 

goto WaitForLoopback ; clear all sample registers and start 

; waiting all over again 
goto ACK__now ; else generate an ACK_tone 

PresetForSupply 

clrf TEMPI ; Clear TEMPI 

bcf TEMPI , CIS ; Clear CIS to select Supply Voltage comparator 
bsf TEMPI ,VCOMP„OUT ; Set VCOMPJDUT to indicate Supply Voltage 

; comparator output 
return ; return from PresetForSupply 

PresetForIZ 

clrf TEMPI ; Clear TEMPI 

bsf TEMPI, CIS ; Set CIS to select Shunt Current comparator 
bsf TEMPI, IZCOMP_OUT ; Set IZC0MP__OUT to indicate Shunt Current 

; comparator output 
return ; return from PresetForIZ 

PresetForTemp 

clrf TEMPI ; Clear TEMPI 

bsf TEMPI, CIS ; Set CIS to select Temperature comparator 

bsf TEMP1,TEMPC0MP„0UT ; Set TEMPCOMP_OUT to indicate Temperature 

,* comparator output 
return ; return from PresetForTemp 

DoCompCheck 

call IsComp_gt_fVal ; check whether the comparator input exceeds 

; f(Val) = 5*Val<3:0>/24 if Val<5>=l 

5* (0.25+Val<3 :0>/32) if Val<5>=0 



return 
register) 



; return from DoCompCheck (with unchanged W 



EvaluateAnswer 

movwf TEMPI ; Put return value in TEMPI (0x0 0 = yes, OxFF = no) 

btfsc TEMPI ,7 ; If no then 

goto WaitForLoopback ; clear all sample registers and start 

waiting all over again 
goto ACK_now ; else generate an ACK tone 

; (commented out due to sequentiality) 



ACK_now 

movf REP_ID,0 ; Select the tone... 

movwf TONE_ID ; ...according to REPAID 

goto StartExtTimer ; Prepare to generate a tone 



I s C omp_g t_f Va 1 

movlw CM0DE# 
iorwf TEMPI , 1 

movf TEMPI, 0 
movwf CMCON 
movlw COUTMASK# 
andwf TEMPI , 1 



movlw VRMASK# 
andwf VAL , 0 
bsf STATUS , RPO 
movwf VRCON 
bsf VRCON ,VREN 
bcf STATUS , RPO 
movlw .15 
call PauseN 
movf CMCON, 0 



Is the comparator input greater than f(Val)? 
Prepare for CM<2:0>=010 

Include CM<2:0> in TEMPI (which has been preset 
according to the selected comparator) 

; Put TEMPI in the W register 
and then into the CMCON register 
Mask the Comparator selection bits 

of TEMPI; now it contains only a 
*' 1" in the selected comparator output 
position 

valid bits of VAL 
in the W register 



; Mask the 
and put result 
Select bank 1 
Put valid bits 
Enable VREF 
Select bank 0 



of VAL in VRCON 



andwf TEMPI , 1 



call 



incf 
decf sz 



Pause for a bit over lOus 
Get CMCON including comparator outputs 
Clear all bits except the selected comparator 
; output 

DefaultComparators ; Restore comparators and voltage reference 

; to default state 
TEMPI , 1 ; Increment TEMPI 

TEMPI ,1 ; If the comparator output was high, 



retlw OxFF 
retlw 0x00 



answer - no 
else answer = 



yes 



DefaultComparators 

bsf STATUS, RPO 
movlw 0x88 
movwf VRCON 
bcf STATUS, RPO 
movlw CMODE# 
movwf CMCON 



bcf 
movlw 



CMCON, CIS 
.15 



Select register bank 1 

Configure for internal voltage reference of 2.5V nom. 

Select register bank 0 
; Set CMCON for 
four independent comparators 
Select Signal and Supply Voltage comparators 
Pause for 



call PauseN 



; a bit more than lOus 
.*************************************************************^ 

***** 

movlw 0x07 ; DEBUG - disable comparators, set for digital inputs 



movwf CMC ON 
. ******** 



*************************************************^^ 



★ * * * * 

return ; return from Def aultC comparators 



PauseN 

movwf TEMP2 ; Put W register in TEMP2 

PauseCycle 

decfsz TEMP2 , 1 ; If not done counting down, 

goto PauseCycle ; keep counting down 
return ; else return 



ConcatenateBits 



rlf 


TEMPI, 1 


rlf 


TEMP2 , 1 


rlf 


TEMPI , 1 


rlf 


TEMP2 , 1 


rlf 


TEMPI , 1 


rlf 


TEMPI, 1 


rlf 


* TEMPI, 1 


rlf 


TEMP2 , 1 


rlf 


TEMPI, 1 


rlf 


TEMP 2 , 1 


return 



Shift TEMP1<7,6> into TEMP2<1,0> 

Rotate TEMPI left through carry 
Rotate TEMP 2 left through carry 
Rotate TEMPI left through carry 
Rotate TEMP2 left through carry 
Shift TEMPI left twice 

; Rotate TEMPI left through carry 
; Rotate TEMPI left through carry 
Shift TEMP1<3,2> into TEMP2<1,0> 

Rotate TEMPI left through carry 
Rotate TEMP2 left through carry 
Rotate TEMPI left through carry 
Rotate TEMP2 left through carry 
return from ConcatenateBits 



CheckParity 
movwf 
rrf 
rrf 
xorwf 
btfss 
retlw 
btfss 
retlw 
btfss 
retlw 
btfss 
retlw 
retlw 



TEMPI 
TEMPI, 1 
TEMPI, 1 
TEMPI , 1 
TEMPI , 0 

.255 
TEMPI, 1 

.255 
TEMPI , 4 

.255 
TEMPI , 5 

.255 

.0 



Return value 



Move W register into TEMPI 
Rotate right two bits 

through carry 
XOR with original TEMPI 
If bit 0 parity is incorrect 
.255 

If bit 1 parity is incorrect 
Return value .255 

; If bit 4 parity is incorrect 
Return value .255 

; If bit 5 parity is incorrect 
Return value .255 
Return value . 0 



GetSamples 

clrf COUNT1 ; set COUNT1=0 

movlw NSAMPLES# ; initialize sample counter COUNT to NSAMPLES# 
movwf COUNT 
StartSampling 

.***********************************************^^ 

* * * 

;btfsc CMCON,SIGCOMP__OUT ; if Signal Comparator = 1 (high amplitude) 

btfsc PORTA , RAO ; DEBUG - use RAO instead 
.****************************************************^ 

* * * 

incf C0UNT1,! ; Increment COUNT1 

decfsz COUNT, 1 ; Decrement COUNT 

; PLACEHOLDER for additional delay between samples 



goto StartSampling 
movf C0UNT1 , 0 
movwf COUNT 
movlw NMATCHING# 
subwf COUNT, 1 
btfss COUNT, 7 
retlw 1 

movf COUNT 1,0 
movwf COUNT 
movlw NMATCHING# 
addwf COUNT, 1 
movlw NSAMPLES# 
subwf COUNT, 1 

btfss COUNT, 7 
retlw .255 

retlw 0 



Put COUNT1 in W register 

Re-use COUNT to hold C0UNT1 value 

; Subtract NMATCHING# from COUNT 

; If remainder is positive, 
then sample is valid, return with value "I 1 
Put C0UNT1 in W register 
Re-use COUNT to hold C0UNT1 value 

Add NMATCHING# to COUNT 

Subtract NSAMPLES# from COUNT; 
COUNT = C0UNT1 - (NSAMPLES# - NMATCHING# ) 
If remainder is positive, 
then sample and message are invalid, 
return with value "OxFF" 
else sample is valid, return with value "0" 



Wai tForLoopback 
movlw OxAO 



movwf INTCON 
movlw INIT_TMSB# 
movwf TIME_MSB 
clrf PHASE 
call ClrSampleRegs 
comf PHASE, 1 

ResetCurrentPhase 

call ClrSampleRegs 

Inf initeLoop 

goto InfiniteLoop 



Enable only the TMRO overflow interrupt (TO IF) , 
set Global interrupt enable since ISR may 
have been escaped without return, and clear all 
interrupt flags 

Initialize TIME_MSB register 

Set PHASE=0 (A) 

; Clear all Phase A sample registers 
; Set PHASE=0xFF (B) 

; Clear all sample registers of the current Phase 
; Wait! 



ClrSampleRegs 

movlw ADDRN_A# 

btfsc PHASE, 0 

movlw ADDRN_B# 

movwf FSR 

movlw NUM_ADDRS# 

movwf TEMPI 
ClrNextReg 

clrf INDF 

decf FSR,1 

decfsz TEMPI , 1 

goto ClrNextReg ; 

return 



Starting with latest Phase A register 
; If PHASE = 1 (B) 

switch to latest Phase B register 
Initialize FSR to latest sample register 
Put number of sample addresses per phase 

into the TEMPI register 

Clear the current sample register 
Move to next earliest sample register 

; If not all registers are done, 
then go back to clear next register 
; return from ClrSampleRegs 



SlowRampPORTB 

movlw .100 
call PauseN 
movf PORTB,0 
movwf TEMPI 

IncPORTB 

movf TEMPI, 0 
movwf PORTB 



Pause about 72.5us 

; Read P0RT„B 
into TEMPI 

; Write TEMPI 
into PORT_B 



movlw .100 ; Pause about 72. Bus 

call PauseN ; 

incfsz TEMPI, 1 ; Increment TEMPI 

goto IncPORTB ; Prepare for another increment 

; (P0RT_B is now .255} 
return ; return from SlowRampPORTB 



StartExtTimer 

movlw 0x90 
movwf INTCON 
call 
bcf 
bsf 
bcf 



SlowRampPORTB 
PORTA , RA4 
PORTA , RA4 
PORTA, RA4 



Enable only external INT interrupt 

; Slowly ramp PORT_B back to .255 
Trigger external timer via RA4 



goto SelectTone 

SelectTone 

btfsc TONE__ID, RBI 
goto tonelS 

; goto tonelO 

sequentiality) 



tonelO 

instructions 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 
movwf 
movlw 



overhead 
.253 
PORTB 

.248 
PORTB 

.242 
PORTB 

.234 
PORTB 

.224 
PORTB 

.212 
PORTB 

.198 
PORTB 

.184 
PORTB 

.169 
PORTB 

.152 
PORTB 

.136 
PORTB 

.119 
PORTB 

.103 
PORTB 

.86 
PORTB 

.71 
PORTB 

.57 
PORTB 

.43 



commented out due to sequentiality 



If T0NE_ID<1>=1, 

; generate tonel5 

; else generate tonelO (commented out due to 



43.125 kHz sine at 2/96 UI intervals; 2 
3 
5 
7 
9 

11 
13 
15 
17 
19 
21 
23 
25 
27 
29 
31 
33 
35 



movwf PORTB 
movlw . 3 1 
movwf PORTB 
movlw . 2 1 
movwf PORTB 
movlw .13 
movwf PORTB 
movlw . 7 
movwf PORTB 
movlw . 2 
movwf PORTB 
movlw . 0 
movwf PORTB 
movlw . 0 
movwf PORTB 
movlw . 2 
movwf PORTB 
movlw . 7 
movwf PORTB 
movlw . 13 
movwf PORTB 
movlw . 2 1 
movwf PORTB 
movlw . 3 1 
movwf PORTB 
movlw .43 
movwf PORTB 
movlw .57 
movwf PORTB 
movlw . 7 1 
movwf PORTB 
movlw .86 
movwf PORTB 
movlw .103 
movwf PORTB 
movlw .119 
movwf PORTB 
movlw .13 6 
movwf PORTB 
movlw .152 
movwf PORTB 
movlw .169 
movwf PORTB 
movlw .184 
movwf PORTB 
movlw .198 
movwf PORTB 
movlw .212 
movwf PORTB 
movlw .224 
movwf PORTB 
movlw .234 
movwf PORTB 
movlw .242 
movwf PORTB 
movlw .248 
movwf PORTB 



movlw .253 

raovwf PORTB 

movlw .255 

movwf PORTB 

goto tonelO 

tone!5 

instructions overhead 
movlw .250 
movwf PORTB 
movlw .240 
movwf PORTB 
movlw .227 
movwf PORTB 
movlw .209 
movwf PORTB 
movlw .188 
movwf PORTB 
movlw .165 
movwf PORTB 
movlw .140 
movwf PORTB 
movlw .115 
movwf PORTB 
movlw . 9 0 
movwf PORTB 
movlw .67 
movwf PORTB 
movlw .46 
movwf PORTB 
movlw . 2 8 
movwf PORTB 
movlw . 1 5 
movwf PORTB 
movlw . 5 
movwf PORTB 
movlw . 0 
movwf PORTB 
movlw . 0 
movwf PORTB 
movlw . 5 
movwf PORTB 
movlw .15 
movwf PORTB 
movlw . 2 8 
movwf PORTB 
movlw . 4 6 
movwf PORTB 
movlw . 6 7 
movwf PORTB 
movlw . 9 0 
movwf PORTB 
movlw .115 
movwf PORTB 
movlw .140 
movwf PORTB 



93 
95 

; Repeat until interrupt 

; 64.6875 kHz sine at 2/64 UI intervals 

; 3 

; 5 

; 7 

; 9 

; 11 

; 13 

; 15 

; 17 

19 

21 

23 

25 

27 

29 
: 31 
? 33 
; 35 
; 37 
; 39 
; 41 
; 43 
; 45 

; 47 
; 49 



movlw .165 
movwf PORTB 
movlw .188 
movwf PORTB 
movlw .2 09 
movwf PORTB 
movlw .2 27 
movwf PORTB 
movlw .2 40 
movwf PORTB 
movlw .2 50 
movwf PORTB 
movlw .255 
movwf PORTB 

goto tonel5 

END 



o 
c 

m 
m 

in 
en 
so 

00 
Q 

01 

-E 

O 



51 

53 

55 

57 
: 59 
? 61 
; 63 

; Repeat until interrupt 
; That's all Folks ! 



